home *** CD-ROM | disk | FTP | other *** search
/ Loadstar 63 / 063.d81 / sentinel boot (.txt) < prev    next >
Commodore BASIC  |  2022-08-26  |  803b  |  23 lines
  1. 10 poke820,124:print"[147]"
  2. 20 gosub61000
  3. 30 print""tab(13)"[129][211] [197] [206] [212] [201] [206] [197] [204]"
  4. 40 printtab(8)"[154][193]n [193]dventure in the [215]orld"
  5. 50 printtab(8)"of the [206]ot-[211]o-[206]ear [198]uture"
  6. 60 printtab(14)"[159][201]t's loading"
  7. 100 load"sentinel",8,1
  8. 110 end
  9. 10000 open15,8,15,"s0:sentinel boot":close15:save"sentinel boot",8:end
  10. 61000 poke214,15:print:poke53281,0:poke53280,0
  11. 61110 print"  [155][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184]"
  12. 61120 print"  [152]                                    "
  13. 61130 print"                                      "
  14. 61140 print"                                      "
  15. 61150 print"        [208]ublished on [204][207][193][196][211][212][193][210] #63     "
  16. 61160 print"      [211]ubscriptions 1-800-831-2694    "
  17. 61180 print"                                      "
  18. 61190 print"  [151][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185]"
  19. 61200 au$="[211] [197] [206] [212] [201] [206] [197] [204]":poke214,17:print:printspc(20-len(au$)/2)"[152]"au$
  20. 61210 au$="[210]obert [199]ermino  ([195]) 1989":poke214,18:print
  21. 61220 printspc(20-len(au$)/2)"[152]"au$""
  22. 61230 return
  23.